VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsVariables"
Attribute VB_GlobalNameSpace = True
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Public FrmName As Object

Public cn As New Connection
Public rs As New Recordset

Public Enum eMode
    AddEditNew
    Find
    Normal
End Enum

Public Property Get ProjectVersion() As String
    ProjectVersion = ProjectVersion_
End Property
Public Property Let ProjectVersion(ByVal vNewValue As String)
    ProjectVersion_ = vNewValue
End Property


Public Property Get sUserID() As String
    sUserID = sUserID_
End Property
Public Property Let sUserID(ByVal vNewValue As String)
    sUserID_ = vNewValue
End Property

Public Property Get sUserName() As String
    sUserName = sUserName_
End Property
Public Property Let sUserName(ByVal vNewValue As String)
    sUserName_ = vNewValue
End Property

Public Property Get sUserRole() As String
    sUserRole = sUserRole_
End Property
Public Property Let sUserRole(ByVal vNewValue As String)
    sUserRole_ = vNewValue
End Property

Public Property Get sCompanyID() As String
    sCompanyID = sCompanyID_
End Property
Public Property Let sCompanyID(ByVal vNewValue As String)
    sCompanyID_ = vNewValue
End Property

Public Property Get sConnString() As String
    sConnString = sConnString_
End Property

Public Property Let sConnString(ByVal vNewValue As String)
    sConnString_ = vNewValue
End Property
